﻿Namespace Model

    Public Class SystemMessage

        Public Sub New(ByVal kind As SystemMessageKind, ByVal text As String)
            _Kind = kind
            _Text = If(text, "")
        End Sub

        Private _Kind As SystemMessageKind
        ''' <summary>
        ''' メッセージの種類
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public ReadOnly Property Kind() As SystemMessageKind
            Get
                Return _Kind
            End Get
        End Property

        Private _Text As String
        ''' <summary>
        ''' メッセージ本文
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public ReadOnly Property Text() As String
            Get
                Return _Text
            End Get
        End Property

    End Class

End Namespace
